(*# call(o_a_copy => off) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
(*# call(o_a_copy => off) *)
DEFINITION MODULE QCshell;

                     (* This JPI Modula-2 module is part of *)

                      (* QC -- a communications program *)
                             (* by Carl Neiburger *)
                              (* 169 N. 25th St.*)
                          (* San Jose, Calif. 95116 *)

                         (* CompuServe No. 72336,2257 *)

CONST
    GifTempName = '$$$.GIF';

PROCEDURE ShowSaveGif;
(* This procedure
   1: Asks user if GIF should be displayed. If so, it shells to a 
      GIF display program.
   2: Asks user if a GIF picture, downloaded as '$$$.GIF', should 
      be renamed for permanent retention. *)

PROCEDURE DoShell(): CARDINAL;
(* This does a simple shell to DOS, using Lib.Exec *)

END QCshell.
